home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-1297 / AMOSLIST / text0008.txt < prev    next >
Encoding:
Text File  |  1998-06-24  |  1.3 KB  |  46 lines
  1. >Hello guys
  2. >
  3. >I have a small problem that I would like some help to. I am creating
  4. >a game and on the intro-screen I would like a picture to show up.
  5. >First the palette would be $FFF on all 16 colours, but they would
  6. >slowly fade down to their origin colours. Please... I really need
  7. >a routine like that.
  8. >If you guys even get this mail then please reply on it. I'm not sure
  9. >if my mails gets to the list... =/
  10. >
  11. >Well... Seeya... /Marco
  12.  
  13.  
  14. Here's 2 examples of how to do this:
  15.  
  16. -------------------------------
  17. Screen open 0,640,256,16,hires
  18. Rem Load your gfx here
  19. Dim C(16)
  20. For i=0 to 15
  21.    c(i)=colour(i) : Rem Save current palette in c()
  22.    colour i,$FFF : Rem Set current palette to $FFF
  23. next i
  24. Rem Fade to saved palette at speed 5
  25. fade
  26. 5,c(0),c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8),c(9),c(10),c(11),c(12),c(13),
  27. c(14),c(15)
  28. -------------------------------
  29. Screen open 0,640,256,16,hires : Screen hide 0
  30. Ink 4 : Bar 10,10 To 50,50 : Rem Load your gfx here
  31. Screen open 1,640,256,16,hires
  32. Screen copy 0 To 1 : Screen 1 : Rem Copy  the contents of screen 0 to Screen
  33. 1
  34. For i=0 to 15
  35.    Colour I,$FFF : Rem Set palette to $FFF on screen 1
  36. Next i
  37. Fade 5 To 0 : Rem Fade screen 1 to the palette of screen 0 at speed 5
  38. -------------------------------
  39.  
  40. Hope this helps,
  41.  
  42.         // Mike
  43.  
  44.  
  45.  
  46.